gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\DelContent.asp

    <!--#include file="../Include/CheckLogin.asp"-->
<!--#include file="../Include/liangconn.asp"-->
<!--#include file="../Include/Function.asp"-->
<%
dim Result,Selectid
Result=request.QueryString("Result")
SelectID=request.Form("SelectID")
select case Result
  case "Message"
    select case Trim(Request.Form("batch"))
	case "批量显示"
	if SelectID<>"" Then conn.execute "update liangjing_Feedback set ViewFlag = 1 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "批量失效"
	if SelectID<>"" Then conn.execute "update liangjing_Feedback set ViewFlag = 0 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "删除所选"
    if SelectID<>"" Then conn.execute "delete from liangjing_Feedback where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	End Select
  case else
end select
%>